home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / spelling bee (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  60 lines
  1. 10 PRINT"SPELLING BEE
  2. 100 [143] SPELLING BEE
  3. 110 W[178]75
  4. 120 [134] W$(W),S(20)
  5. 130 [151]53280,4: [151]53281,1:[153]"LOADSTOP":[153]
  6. 140 [153] "WELCOME PAULINE'S SPELLING BEE."
  7. 150 [153] : [153] "YOU WILL SEE THE BEE FLY ACROSS THE"
  8. 160 [153] "SCREEN,LEAVING LETTERS AS IT GOES."
  9. 170 [153] : [153] "THESE LETTERS ARE OF A SCRAMBLED WORD."
  10. 180 [153] "YOU MUST UNSCRAMBLE THE WORD AND ENTER"
  11. 190 [153] "THE CORRECT SPELLING TO RECIEVE POINTS.":[153]
  12. 210 [153] : [153] "GOOD LUCK.":[153]
  13. 220 B$(1)[178]"      (null)  (null)(null)"
  14. 230 B$(2)[178]"      STOP SYS STOP SYSWAITSTOP(null)"
  15. 240 B$(3)[178]"    STOP SYS STOP SYS STOP SYSWAIT"
  16. 250 B$(4)[178]"STOP   <STOP SYS STOP SYS STOP SYSWAITSTOP="
  17. 260 B$(5)[178]"STOP      ;;"
  18. 270 D$[178]"":P$[178]""
  19. 280 [129] X[178]1 [164] W:[135] W$(X):[130]
  20. 290 [153] : [153] "HIT ANY KEY TO START."
  21. 300 [161] Q$: [139] Q$[178]"" [167] 300
  22. 310 T[178] 0:S[178]0
  23. 320 [129] X[178]1 [164] 10
  24. 330 A[178] [181] ( [187] (8)[172]W)[170]1:W$[178]W$(A):S$[178]""
  25. 340 L[178] [195] (W$): [129] Y[178]1 [164] L:S(Y)[178]0:[130] Y
  26. 350 [129] Y[178]1 [164] [195] (W$)
  27. 360 K[178] [181] ( [187] (3)[172]L)[170]1:[139] S(K)[178]1 [167] 360
  28. 370 S$[178]S$[170][202] (W$,K,1):S(K)[178]1:[130] Y
  29. 380 [139] S$[178]W$ [167] 340
  30. 390 [153] "LOADWORD #"X" SCORE="S
  31. 400 F[178]1:[129] Y[178]1 [164] 28:B$[178][200] (P$,Y)
  32. 410 [139] [195] (B$)[177]17 [175] F[179]L[170]1 [167] [153] D$;B$;"CMDCMD"[202] (S$,F,1):F[178]F[170]1
  33. 420 [153] D$
  34. 430 [129] Z[178]1 [164] 5:[153] B$;B$(Z):[130] Z
  35. 440 [129] T[178]1 [164] 49:[130] T,Y
  36. 450 [153] D$
  37. 460 [153] D$;""
  38. 470 [133] "ENTER CORRECT SPELLING";C$:[153]
  39. 480 [139] C$[178]W$ [167] [153] [163] 13)"THAT IS CORRECT!":S[178]S[170]125:[137] 510
  40. 490 [153] [163] 10)"WRONG, IT WAS "W$"."
  41. 500 [129] T[178]1 [164] 1000:[130] T
  42. 510 [129] T[178]1 [164] 2000:[130] T
  43. 520 [130] X
  44. 530 [153] "LOAD":[153]
  45. 540 [139] S[177]900 [167] [153] "YOU WIN THE SPELLING BEE!":[137] 580
  46. 550 [139] S[177]800 [167] [153] "VERY WELL DONE.":[137] 580
  47. 560 [139] S[177]700 [167] [153] "NOT BAD.":[137] 580
  48. 570 [153] "YOU NEED PRACTICE."
  49. 580 [153] : [133] "PLAY AGAIN";Q$
  50. 590 [139] [200] (Q$,1)[178]"Y" [167] 290
  51. 601 [131] CATALOG,CATFISH,FRUIT,FIRST,MONEY,PARTY,RECALL,SCORE,TROPHY
  52. 602 [131] BIRTH,BROOM,CHURCH,CUSHION,FROST,PICKLE,GREET,ROCK
  53. 603 [131] MODEL,MONKEY,REDEEM,RIFLE,SAUCE,SCARF,FACE,EXTRA,GARDEN,DIARY
  54. 605 [131] CLAIM,PRIDE,RETURN,MONDAY,CARPET,WENT,CANDY,ONION
  55. 606 [131] PARADISE,HEAT,SEVEN,CLEAN,TOOL,SAMPLE,OTHER,FRESH
  56. 607 [131] DOLLAR,SORRY,SURE,WATCH,EIGHT,GLASSES,WELCOME
  57. 608 [131] DETAIL,BLEND,TRUCK,CRUSH,LITTLE,DAMAGE,CLUB,CLEAR
  58. 609 [131] SMELL,WRECK,STICK,DRIVE,CURVE,URGE,RIDDLE
  59. 610 [131] DANCE,POKE,TEST,WASH,SIMPLE,BEND,SPRING,BALLOON,TODAY,GATE
  60.